home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_16.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  6.6 KB  |  95 lines
  1. on setUpAll
  2.   global min_duration, eka_auringossa, ComputerSpeed, MainMode, qtinstaller, MainPath, MovPath, TxtPath, fade_count, Writer, km, nappi_sprite, teksti_sprite, txt_ending, mm1_list, mm2_list, mm3_list, mm4_list, mm5_list, mmlp1, mmlp2, mmlp3, mmlp4, mmlp5, spr, soho_rot_frames, JumpAmount, JumpList, bl, xp, yp, notrollover, blminus, RoverNow, RoverLast, DefaultCursorFlag, earth_list, earth_spd_flag, global_volume, atmoY, atmoPos1, atmoPos2, swPos1, interiorPos1, hilight_list, hilight_list_dir, FirstMain
  3.   set FirstMain to 0
  4.   set min_duration to 80
  5.   set hilight_list_dir to [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 0]
  6.   set hilight_list to ["golf01", "h22", "mdisoi", "variatio", "sunspotm", "mdi008", "rivers2", "mdi024", "mdi10", "mdi24b", "mdisolqu", "carpet2", "cycle23m", "mdidoppe", "h19", "magcarps", "mdi021", "fd_ic", "fd_m", "9805fdm", "sum_fig2", "v14", "v15", "lascoc1", "lascoc2", "overlay2", "rotatez", "fsun", "tricolo3", "211", "sumer", "sparkapr", "eit304no", "213", "sum_v23", "eitloop", "sumer13", "uvcspair", "uvcs3", "uvcseit", "sspotmax", "eit4pane", "4panelqu", "carpetvi", "210", "cds2", "overlay2", "v17", "timeline", "hr_all", "mdi_cds", "spark3z", "cds013", "pr", "06_lb", "ee_inne", "ar_evol", "mdi_lay", "m02", "m06", "prom_199", "eitbigpr", "alls11", "jan1198", "eit005", "1999erup", "promzoom", "slide6", "2sumer1", "alls20", "c2panel", "las017", "c23nov97", "c2dblast", "c3cme6z", "chjan98", "twist3", "c2_erupt", "lasc3jan", "eitrndif", "mdisolqu", "eit022", "eit026", "spark3z", "4panelqu", "lascoc2", "crn_1936", "lascoc2b", "celias", "swan", "solwhs", "cel004", "cel001", "suncinet", "s9", "s10", "sl_c2", "c2xmas1", "hyakc3df", "swanhale", "evaporat", "halebopp", "swancome", "las_xmas", "s46_47c", "las_ven", "uvcs_com", "hyak4pan"]
  7.   set atmoY to [113 - 30, 144 - 30, 174 - 30, 204 - 30, 235 - 30, 267 - 30, 297 - 30, 328 - 30, 358 - 30, 388 - 30]
  8.   set atmoPos1 to [0, 13, 26, 37, 51, 57, 80, 91, 99, 109, 200]
  9.   set atmoPos2 to [10, 22, 35, 48, 52, 77, 89, 92, 106, 113]
  10.   set swPos1 to [0, 6, 13, 19, 26, 34, 41, 200, 200, 200, 200, 200, 200, 200, 200, 200]
  11.   set interiorPos1 to [0, 11, 24, 31, 37, 200, 200, 200, 200, 200, 200, 200, 200, 200]
  12.   set eka_auringossa to 0
  13.   set the puppet of sprite 102 to 1
  14.   set global_volume to 5
  15.   set global_volume to the soundLevel
  16.   set the soundLevel to global_volume
  17.   set spr to 108
  18.   set the directToStage of member "sunmove" to 0
  19.   set earth_spd_flag to 0
  20.   set DefaultCursorFlag to 1
  21.   set RoverNow to 0
  22.   set RoverLast to 0
  23.   set blminus to 1
  24.   set xp to 750
  25.   set yp to 10
  26.   set notrollover to 1
  27.   set bl to 30
  28.   set JumpList to [0]
  29.   set JumpAmount to 0
  30.   set mmlp1 to 1
  31.   set mmlp2 to 1
  32.   set mmlp3 to 1
  33.   set mmlp4 to 1
  34.   set mmlp5 to 1
  35.   set earth_list to ["tiny000", "tiny001", "tiny002", "tiny003", "tiny004", "tiny005", "tiny006", "tiny007", "tiny008", "tiny009", "tiny010", "tiny011", "tiny012", "tiny013", "tiny014", "tiny015", "tiny016", "tiny017", "tiny018", "tiny019", "_loop"]
  36.   set mm1_list to ["sun015", "sun014", "sun013", "sun012", "sun011", "sun010", "sun009", "sun008", "sun007", "sun006", "sun005", "sun004", "sun003", "sun002", "sun001", "sun000", "_loop"]
  37.   set soho_rot_frames to ["rot000", "rot010", "rot020", "rot030", "rot040", "rot050", "rot060", "rot070", "rot080", "rot090", "rot100", "rot110", "rot120", "rot130", "rot140", "rot150", "rot160", "rot170", "_loop"]
  38.   set mm2_list to ["mmsun00", "mmsun01", "mmsun02", "mmsun03", "mmsun04", "mmsun05", "mmsun06", "mmsun07", "mmsun08", "mmsun09", "mmsun10", "mmsun11", "mmsun12", "mmsun13", "mmsun14", "_loop"]
  39.   set mm3_list to ["bup000", "bup001", "bup002", "bup003", "bup004", "bup005", "bup006", "bup007", "bup008", "bup009", "bup010", "bup011", "bup012", "bup013", "bup014", "_loop"]
  40.   set mm4_list to ["esa000", "esa001", "esa002", "esa003", "esa004", "esa005", "esa006", "esa007", "esa008", "esa009", "esa010", "esa011", "esa012", "esa013", "esa014", "esa015", "esa016", "esa017", "esa018", "esa019", "esa020", "esa021", "esa022", "esa023", "esa024", "esa025", "esa026", "esa027", "esa028", "esa029", "esa030", "esa031", "esa032", "esa033", "esa034", "esa035", "esa036", "esa037", "esa038", "_loop"]
  41.   set mm5_list to ["kys000", "kys001", "kys002", "kys003", "kys004", "kys005", "kys006", "kys007", "kys008", "kys009", "kys010", "kys011", "kys012", "kys013", "kys014", "kys015", "kys016", "kys017", "kys018", "kys019", "kys020", "kys021", "kys022", "kys023", "kys024", "kys025", "kys026", "kys027", "kys028", "kys029", "kys030", "kys031", "kys032", "kys033", "kys034", "kys035", "kys036", "kys037", "_loop"]
  42.   set fade_count to 100
  43.   set txt_ending to ".txt"
  44.   set teksti_sprite to 89
  45.   set nappi_sprite to 116
  46.   set MainPath to the moviePath
  47.   if the machineType = 256 then
  48.     set km to "\"
  49.     set qtinstaller to MainPath & "qt3\qt3inst.exe"
  50.     set Writer to "write.exe"
  51.   else
  52.     set km to ":"
  53.     set Writer to "MacWrite"
  54.   end if
  55.   set MovPath to MainPath & "mov" & km
  56.   set TxtPath to MainPath & "txt" & km
  57.   if ComputerSpeed = 1 then
  58.     linkMovWithName("newsun_1", "atmos24", "atmos2.mov")
  59.     linkMovWithName("newsun_1", "inter2", "inter2.mov")
  60.     linkMovWithName("newsun_1", "solarw2", "solarw2.mov")
  61.   else
  62.     linkMovWithName("newsun_1", "atmos24", "atmos3.mov")
  63.     linkMovWithName("newsun_1", "inter2", "inter3.mov")
  64.     linkMovWithName("newsun_1", "solarw2", "solarw3.mov")
  65.   end if
  66.   if ComputerSpeed = 1 then
  67.     linkMov("general", "sunmove")
  68.     linkMovWithName("general", "mintro", "introa.mov")
  69.   else
  70.     linkMovWithName("general", "sunmove", "sunmoveb.mov")
  71.     if ComputerSpeed = 2 then
  72.       linkMovWithName("general", "mintro", "introa.mov")
  73.     else
  74.       linkMovWithName("general", "mintro", "introa.mov")
  75.     end if
  76.   end if
  77.   set MainMode to 1
  78.   set the pausedAtStart of member "sml_sun" to 1
  79. end
  80.  
  81. on linkMov path, name
  82.   global MainMode, qtinstaller, MainPath, JpgPath, MovPath, TxtPath, Writer, km
  83.   set the fileName of member name to "@::data" & km & "mov" & km & path & km & name & ".mov"
  84. end
  85.  
  86. on linkMovWithName path, name, movname
  87.   global MainMode, qtinstaller, MainPath, JpgPath, MovPath, TxtPath, Writer, km
  88.   set the fileName of member name to "@::data" & km & "mov" & km & path & km & movname
  89. end
  90.  
  91. on linkMovEncy path, name
  92.   global MainMode, qtinstaller, MainPath, JpgPath, MovPath, TxtPath, Writer, km
  93.   set the fileName of member name of castLib "Encyclopedia" to MovPath & path & km & name & ".mov"
  94. end
  95.